home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
076-100
/
disk_084
/
gravitywars
/
gw.def
< prev
next >
Wrap
Text File
|
1992-05-06
|
2KB
|
56 lines
DEFINITION MODULE GW;
(**********************************************************************
*************** Written by Ed Bartz ***************
*************** Copyright 5/14/87 ***************
*************** This program may be redistributed ***************
*************** or modified as long as these ***************
*************** notices and all other references ***************
*************** to the author remain intack. ***************
*************** Also this may not be used for ***************
*************** profit by anyone without the ***************
*************** express permission of the author. ***************
**********************************************************************)
FROM Intuition IMPORT WindowPtr;
TYPE
Pl = RECORD
x,y,r :INTEGER;
color :CARDINAL;
m :REAL;
END;
Mdata = RECORD
P1ang,P1vel,P2ang,P2vel :REAL;
END;
Shell = RECORD
vx,vy: REAL;
x,y : INTEGER;
END;
String = ARRAY [0..80] OF CHAR;
PROCEDURE DrawPlanet(x,y,r:INTEGER;color,ptype:CARDINAL;wp:WindowPtr);
PROCEDURE Distance(A,B :Pl): INTEGER;
PROCEDURE Pposition (VAR PlanetPos: ARRAY OF Pl;Pnum,ptype: CARDINAL; w: WindowPtr);
PROCEDURE Sposition(w: WindowPtr;VAR Ship,PPos: ARRAY OF Pl;Pnum: CARDINAL);
PROCEDURE Stars(wp: WindowPtr);
PROCEDURE Sexplosion(mis:Shell;wp: WindowPtr);
PROCEDURE Pexplosion(mis:Shell;wp: WindowPtr);
PROCEDURE DrawLine (x1,y1,x2,y2,c : CARDINAL; wp : WindowPtr);
PROCEDURE DrawShip(x1,y1,x2,y2 : CARDINAL; wp : WindowPtr);
END GW.